home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / pcalmrg.zip / RSB3PCAL.MRG < prev   
Text File  |  1992-06-30  |  1KB  |  34 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB3.ORG to produce RBBSSUB3.BAS
  3. * RBBSSUB3.ORG:  Date 6-20-1992  Size 129071 bytes
  4. * ------------[ Created 06-29-1992 23:56:42 ]------------
  5. * REPLACING old line(s) by new
  6. 20717 CALL FindItX (ZNodeWorkFile$,7)
  7.       ZUserIn$ = Desc$
  8.       WasX$ = DATE$
  9.       ZWasZ$ = LEFT$(WasX$,6) + _
  10.            RIGHT$(WasX$,2)
  11.       ZWasEN$ = ZPersonalDir$
  12.       NumPersonals = 0
  13.       IF NOT ZOK THEN _
  14.          GOTO 20718
  15.       UserFileIndexSave = ZUserFileIndex
  16.       UserRecordHold$ = ZUserRecord$
  17.       WHILE NOT EOF(7)
  18.          CALL ReadParmsX (7,ZWorkAra$(),2,1)
  19.          IF LEFT$(ZWorkAra$(1),4) <> "ALL " AND ZWorkAra$(1) <> "ALL" THEN _
  20.             NumPersonals = NumPersonals + 1 : _
  21.             UCat$ = ZWorkAra$(1) : _
  22.             GOSUB 20728 : _
  23.             RcvrRecNum = VAL (ZWorkAra$(2)) : _
  24.             CALL SetUserFlag (RcvrRecNum,4096,"file")
  25. * ------[ first line different ]------
  26.             ZWasY$ = ZFileNameHold$ + " ^Uploaded^ to " + ZWorkAra$(1)    ' MR062303
  27.             Call UpdtCalr(ZWasY$,1)                                       ' MR062303
  28.       WEND
  29.       CLOSE 7
  30.       IF NumPersonals > 0 THEN _
  31.          ZUserFileIndex = UserFileIndexSave : _
  32.          LSET ZUserRecord$ = UserRecordHold$ : _
  33.          GOTO 20723
  34.